home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Raten2.cpp < prev    next >
C/C++ Source or Header  |  1998-12-18  |  1KB  |  39 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Raten2.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const int Max = 12;  // ein Dutzend ist genug
  10. TForm1 *Form1;
  11. int Eingabe, Zufall, Versuche;
  12.  
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.     : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21.   Edit1->SetFocus ();
  22.   Eingabe = StrToInt (Edit1->Text);
  23.   Versuche++;  // daher auch C++
  24.   if (Versuche <= Max)
  25.     Label2->Caption = IntToStr (Versuche) + ". Versuch:";
  26.   else
  27.     Label2->Caption = "Es reicht!";
  28.   if (Eingabe == Zufall) Label1->Caption = "Richtig geraten!";
  29.   if (Eingabe < Zufall) Label1->Caption = "Deine Zahl ist zu klein!";
  30.   if (Eingabe > Zufall) Label1->Caption = "Deine Zahl ist zu gro▀!";
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TForm1::FormCreate(TObject *Sender)
  34. {
  35.   randomize ();
  36.   Zufall = random (1000) + 1;
  37.   Versuche = 1;
  38. }
  39. //---------------------------------------------------------------------------